home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / title.dxr / 00007.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  3.1 KB  |  102 lines
  1. on placedownmenubutton buttonname, h, v, popnum, offset
  2.   global popposition, buttondata, status
  3.   if status <> EMPTY then
  4.     beepsound()
  5.     exit
  6.   end if
  7.   set buttondata to buttonname & "," & h & "," & v & "," & popnum & "," & offset
  8.   puppetSprite(19, 1)
  9.   set the type of sprite 19 to 1
  10.   set the ink of sprite 19 to 0
  11.   set the foreColor of sprite 19 to 255
  12.   set the backColor of sprite 19 to 0
  13.   set castname to buttonname & ",down"
  14.   set the castNum of sprite 19 to the number of member castname
  15.   set the locH of sprite 19 to h
  16.   set the locV of sprite 19 to v
  17.   updateStage()
  18.   showpopmenu(buttonname, h, v, offset)
  19.   set popposition to getpopposition(buttonname)
  20. end
  21.  
  22. on showpopmenu buttonname, h, v, offset
  23.   global popposition, poponoff
  24.   set poponoff to 1
  25.   puppetSprite(20, 1)
  26.   set the type of sprite 20 to 1
  27.   set the ink of sprite 20 to 0
  28.   set the foreColor of sprite 20 to 255
  29.   set the backColor of sprite 20 to 0
  30.   set castname to buttonname & ",pop"
  31.   set the castNum of sprite 20 to the number of member castname
  32.   set the locH of sprite 20 to h
  33.   set the locV of sprite 20 to v + offset
  34.   updateStage()
  35. end
  36.  
  37. on checkpopmenu
  38.   global popposition, buttondata, poponoff
  39.   if buttondata = 0 then
  40.     exit
  41.   end if
  42.   if poponoff = 0 then
  43.     exit
  44.   end if
  45.   set buttonname to item 1 of buttondata
  46.   set h to value(item 2 of buttondata)
  47.   set v to value(item 3 of buttondata)
  48.   set offset to value(item 5 of buttondata)
  49.   set mh to mouseH() - offset
  50.   set mv to mouseV()
  51.   if (mv >= value(word 1 of item 1 of popposition)) and (mv <= word 2 of item 1 of popposition) then
  52.     set n to 1
  53.     set voffset to value(word 1 of item 1 of popposition) - 1
  54.   else
  55.     if (mv >= value(word 1 of item 2 of popposition)) and (mv <= word 2 of item 2 of popposition) then
  56.       set n to 2
  57.       set voffset to value(word 1 of item 2 of popposition) - 1
  58.     else
  59.       if (mv >= value(word 1 of item 3 of popposition)) and (mv <= word 2 of item 3 of popposition) then
  60.         set n to 3
  61.         set voffset to value(word 1 of item 3 of popposition) - 1
  62.       else
  63.         if (mv >= value(word 1 of item 4 of popposition)) and (mv <= word 2 of item 4 of popposition) then
  64.           set n to 4
  65.           set voffset to value(word 1 of item 4 of popposition) - 1
  66.         else
  67.           if (mv >= value(word 1 of item 5 of popposition)) and (mv <= word 2 of item 5 of popposition) then
  68.             set n to 5
  69.             set voffset to value(word 1 of item 5 of popposition) - 1
  70.           else
  71.             puppetSprite(21, 0)
  72.             updateStage()
  73.             exit
  74.           end if
  75.         end if
  76.       end if
  77.     end if
  78.   end if
  79.   puppetSprite(21, 1)
  80.   set the type of sprite 21 to 1
  81.   set the ink of sprite 21 to 0
  82.   set the foreColor of sprite 21 to 255
  83.   set the backColor of sprite 21 to 0
  84.   set castname to buttonname & ",pop,down," & n
  85.   set the castNum of sprite 21 to the number of member castname
  86.   set the locH of sprite 21 to h
  87.   set the locV of sprite 21 to voffset
  88.   updateStage()
  89. end
  90.  
  91. on eracemenudownbutton
  92.   global poponoff
  93.   set poponoff to 0
  94.   puppetSprite(19, 0)
  95.   puppetSprite(20, 0)
  96.   puppetSprite(21, 0)
  97.   puppetSprite(22, 0)
  98.   puppetSprite(23, 0)
  99.   puppetSprite(24, 0)
  100.   updateStage()
  101. end
  102.